home *** CD-ROM | disk | FTP | other *** search
/ Clickx 47 / Clickx 47.iso / assets / software / sswitchxp152.exe / source / SpeedswitchXP / HyperLink.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  2006-06-14  |  13.3 KB  |  441 lines
  1. // HyperLink.cpp : implementation file
  2. //
  3. // HyperLink static control. Will open the default browser with the given URL
  4. // when the user clicks on the link.
  5. //
  6. // Copyright (C) 1997, 1998 Chris Maunder (chrismaunder@codeguru.com)
  7. // All rights reserved. May not be sold for profit.
  8. //
  9. // Thanks to Pσl K. T°nder for auto-size and window caption changes.
  10. //
  11. // "GotoURL" function by Stuart Patterson
  12. // As seen in the August, 1997 Windows Developer's Journal.
  13. // Copyright 1997 by Miller Freeman, Inc. All rights reserved.
  14. // Modified by Chris Maunder to use TCHARs instead of chars.
  15. //
  16. // "Default hand cursor" from Paul DiLascia's Jan 1998 MSJ article.
  17. //
  18.  
  19. #define _UNICODE
  20.  
  21. #include "stdafx.h"
  22. #include "HyperLink.h"
  23.  
  24. #ifdef _DEBUG
  25. #define new DEBUG_NEW
  26. #undef THIS_FILE
  27. static char THIS_FILE[] = __FILE__;
  28. #endif
  29.  
  30. #define TOOLTIP_ID 1
  31.  
  32. /////////////////////////////////////////////////////////////////////////////
  33. // CHyperLink
  34.  
  35. CHyperLink::CHyperLink()
  36. {
  37.     m_hLinkCursor       = NULL;                 // No cursor as yet
  38.     m_crLinkColour      = RGB(  0,   0, 238);   // Blue
  39.     m_crVisitedColour   = RGB( 85,  26, 139);   // Purple
  40.     m_crHoverColour     = ::GetSysColor(COLOR_HIGHLIGHT);
  41.     m_bOverControl      = FALSE;                // Cursor not yet over control
  42.     m_bVisited          = FALSE;                // Hasn't been visited yet.
  43.     m_bUnderline        = TRUE;                 // Underline the link?
  44.     m_bAdjustToFit      = TRUE;                 // Resize the window to fit the text?
  45.     m_strURL.Empty();
  46. }
  47.  
  48. CHyperLink::~CHyperLink()
  49. {
  50.     m_Font.DeleteObject();
  51. }
  52.  
  53. BEGIN_MESSAGE_MAP(CHyperLink, CStatic)
  54.     //{{AFX_MSG_MAP(CHyperLink)
  55.     ON_CONTROL_REFLECT(STN_CLICKED, OnClicked)
  56.     ON_WM_CTLCOLOR_REFLECT()
  57.     ON_WM_SETCURSOR()
  58.     ON_WM_MOUSEMOVE()
  59.     //}}AFX_MSG_MAP
  60. END_MESSAGE_MAP()
  61.  
  62. /////////////////////////////////////////////////////////////////////////////
  63. // CHyperLink message handlers
  64.  
  65. BOOL CHyperLink::PreTranslateMessage(MSG* pMsg) 
  66. {
  67.     m_ToolTip.RelayEvent(pMsg);
  68.     return CStatic::PreTranslateMessage(pMsg);
  69. }
  70.  
  71. void CHyperLink::OnClicked()
  72. {
  73.     BOOL result = GotoURL( m_strURL, SW_SHOW );
  74.     m_bVisited = result;
  75.     if (!m_bVisited) {
  76.         MessageBeep(MB_ICONEXCLAMATION);     // Unable to follow link
  77.         ReportError(result);
  78.     } else 
  79.         SetVisited();                        // Repaint to show visited colour
  80. }
  81.  
  82. HBRUSH CHyperLink::CtlColor(CDC* pDC, UINT nCtlColor) 
  83. {
  84.     ASSERT(nCtlColor == CTLCOLOR_STATIC);
  85.  
  86.     if (m_bOverControl)
  87.         pDC->SetTextColor(m_crHoverColour);
  88.     else if (m_bVisited)
  89.         pDC->SetTextColor(m_crVisitedColour);
  90.     else
  91.         pDC->SetTextColor(m_crLinkColour);
  92.  
  93.     // transparent text.
  94.     pDC->SetBkMode(TRANSPARENT);
  95.     return (HBRUSH)GetStockObject(NULL_BRUSH);
  96. }
  97.  
  98. void CHyperLink::OnMouseMove(UINT nFlags, CPoint point) 
  99. {
  100.     CStatic::OnMouseMove(nFlags, point);
  101.  
  102.     if (m_bOverControl)        // Cursor is currently over control
  103.     {
  104.         CRect rect;
  105.         GetClientRect(rect);
  106.  
  107.         if (!rect.PtInRect(point))
  108.         {
  109.             m_bOverControl = FALSE;
  110.             ReleaseCapture();
  111.             RedrawWindow();
  112.             return;
  113.         }
  114.     }
  115.     else                      // Cursor has just moved over control
  116.     {
  117.         m_bOverControl = TRUE;
  118.         RedrawWindow();
  119.         SetCapture();
  120.     }
  121. }
  122.  
  123. BOOL CHyperLink::OnSetCursor(CWnd* /*pWnd*/, UINT /*nHitTest*/, UINT /*message*/) 
  124. {
  125.     if (m_hLinkCursor)
  126.     {
  127.         ::SetCursor(m_hLinkCursor);
  128.         return TRUE;
  129.     }
  130.     return FALSE;
  131. }
  132.  
  133. void CHyperLink::PreSubclassWindow() 
  134. {
  135.     // We want to get mouse clicks via STN_CLICKED
  136.     DWORD dwStyle = GetStyle();
  137.     ::SetWindowLong(GetSafeHwnd(), GWL_STYLE, dwStyle | SS_NOTIFY);
  138.     
  139.     // Set the URL as the window text
  140.     if (m_strURL.IsEmpty())
  141.         GetWindowText(m_strURL);
  142.  
  143.     // Check that the window text isn't empty. If it is, set it as the URL.
  144.     CString strWndText;
  145.     GetWindowText(strWndText);
  146.     if (strWndText.IsEmpty()) {
  147.         ASSERT(!m_strURL.IsEmpty());    // Window and URL both NULL. DUH!
  148.         SetWindowText(m_strURL);
  149.     }
  150.  
  151.     // Create the font
  152.     LOGFONT lf;
  153.     GetFont()->GetLogFont(&lf);
  154.     lf.lfUnderline = m_bUnderline;
  155.     m_Font.CreateFontIndirect(&lf);
  156.     SetFont(&m_Font);
  157.  
  158.     PositionWindow();        // Adjust size of window to fit URL if necessary
  159.     SetDefaultCursor();      // Try and load up a "hand" cursor
  160.  
  161.     // Create the tooltip
  162.     CRect rect; 
  163.     GetClientRect(rect);
  164.     m_ToolTip.Create(this);
  165.     m_ToolTip.AddTool(this, m_strURL, rect, TOOLTIP_ID);
  166.  
  167.     CStatic::PreSubclassWindow();
  168. }
  169.  
  170. /////////////////////////////////////////////////////////////////////////////
  171. // CHyperLink operations
  172.  
  173. void CHyperLink::SetURL(CString strURL)
  174. {
  175.     m_strURL = strURL;
  176.  
  177.     if (::IsWindow(GetSafeHwnd())) {
  178.         PositionWindow();
  179.         m_ToolTip.UpdateTipText(strURL, this, TOOLTIP_ID);
  180.     }
  181. }
  182.  
  183. CString CHyperLink::GetURL() const
  184. { 
  185.     return m_strURL;   
  186. }
  187.  
  188. void CHyperLink::SetColours(COLORREF crLinkColour, COLORREF crVisitedColour,
  189.                             COLORREF crHoverColour /* = -1 */) 
  190. { 
  191.     m_crLinkColour    = crLinkColour; 
  192.     m_crVisitedColour = crVisitedColour;
  193.  
  194.     if (crHoverColour == -1)
  195.         m_crHoverColour = ::GetSysColor(COLOR_HIGHLIGHT);
  196.     else
  197.         m_crHoverColour = crHoverColour;
  198.  
  199.     if (::IsWindow(m_hWnd))
  200.         Invalidate(); 
  201. }
  202.  
  203. COLORREF CHyperLink::GetLinkColour() const
  204. { 
  205.     return m_crLinkColour; 
  206. }
  207.  
  208. COLORREF CHyperLink::GetVisitedColour() const
  209. {
  210.     return m_crVisitedColour; 
  211. }
  212.  
  213. COLORREF CHyperLink::GetHoverColour() const
  214. {
  215.     return m_crHoverColour;
  216. }
  217.  
  218. void CHyperLink::SetVisited(BOOL bVisited /* = TRUE */) 
  219. { 
  220.     m_bVisited = bVisited; 
  221.  
  222.     if (::IsWindow(GetSafeHwnd()))
  223.         Invalidate(); 
  224. }
  225.  
  226. BOOL CHyperLink::GetVisited() const
  227. { 
  228.     return m_bVisited; 
  229. }
  230.  
  231. void CHyperLink::SetLinkCursor(HCURSOR hCursor)
  232. { 
  233.     m_hLinkCursor = hCursor;
  234.     if (m_hLinkCursor == NULL)
  235.         SetDefaultCursor();
  236. }
  237.  
  238. HCURSOR CHyperLink::GetLinkCursor() const
  239. {
  240.     return m_hLinkCursor;
  241. }
  242.  
  243. void CHyperLink::SetUnderline(BOOL bUnderline /* = TRUE */)
  244. {
  245.     m_bUnderline = bUnderline;
  246.  
  247.     if (::IsWindow(GetSafeHwnd()))
  248.     {
  249.         LOGFONT lf;
  250.         GetFont()->GetLogFont(&lf);
  251.         lf.lfUnderline = m_bUnderline;
  252.  
  253.         m_Font.DeleteObject();
  254.         m_Font.CreateFontIndirect(&lf);
  255.         SetFont(&m_Font);
  256.  
  257.         Invalidate(); 
  258.     }
  259. }
  260.  
  261. BOOL CHyperLink::GetUnderline() const
  262. { 
  263.     return m_bUnderline; 
  264. }
  265.  
  266. void CHyperLink::SetAutoSize(BOOL bAutoSize /* = TRUE */)
  267. {
  268.     m_bAdjustToFit = bAutoSize;
  269.  
  270.     if (::IsWindow(GetSafeHwnd()))
  271.         PositionWindow();
  272. }
  273.  
  274. BOOL CHyperLink::GetAutoSize() const
  275. { 
  276.     return m_bAdjustToFit; 
  277. }
  278.  
  279.  
  280. // Move and resize the window so that the window is the same size
  281. // as the hyperlink text. This stops the hyperlink cursor being active
  282. // when it is not directly over the text. If the text is left justified
  283. // then the window is merely shrunk, but if it is centred or right
  284. // justified then the window will have to be moved as well.
  285. //
  286. // Suggested by Pσl K. T°nder 
  287.  
  288. void CHyperLink::PositionWindow()
  289. {
  290.     if (!::IsWindow(GetSafeHwnd()) || !m_bAdjustToFit) 
  291.         return;
  292.  
  293.     // Get the current window position
  294.     CRect rect;
  295.     GetWindowRect(rect);
  296.  
  297.     CWnd* pParent = GetParent();
  298.     if (pParent)
  299.         pParent->ScreenToClient(rect);
  300.  
  301.     // Get the size of the window text
  302.     CString strWndText;
  303.     GetWindowText(strWndText);
  304.  
  305.     CDC* pDC = GetDC();
  306.     CFont* pOldFont = pDC->SelectObject(&m_Font);
  307.     CSize Extent = pDC->GetTextExtent(strWndText);
  308.     pDC->SelectObject(pOldFont);
  309.     ReleaseDC(pDC);
  310.  
  311.     // Get the text justification via the window style
  312.     DWORD dwStyle = GetStyle();
  313.  
  314.     // Recalc the window size and position based on the text justification
  315.     if (dwStyle & SS_CENTERIMAGE)
  316.         rect.DeflateRect(0, (rect.Height() - Extent.cy)/2);
  317.     else
  318.         rect.bottom = rect.top + Extent.cy;
  319.  
  320.     if (dwStyle & SS_CENTER)   
  321.         rect.DeflateRect((rect.Width() - Extent.cx)/2, 0);
  322.     else if (dwStyle & SS_RIGHT) 
  323.         rect.left  = rect.right - Extent.cx;
  324.     else // SS_LEFT = 0, so we can't test for it explicitly 
  325.         rect.right = rect.left + Extent.cx;
  326.  
  327.     // Move the window
  328.     SetWindowPos(NULL, rect.left, rect.top, rect.Width(), rect.Height(), SWP_NOZORDER);
  329. }
  330.  
  331. /////////////////////////////////////////////////////////////////////////////
  332. // CHyperLink implementation
  333.  
  334. // The following appeared in Paul DiLascia's Jan 1998 MSJ articles.
  335. // It loads a "hand" cursor from the winhlp32.exe module
  336. void CHyperLink::SetDefaultCursor()
  337. {
  338.     if (m_hLinkCursor == NULL)                // No cursor handle - load our own
  339.     {
  340.         // Get the windows directory
  341.         CString strWndDir;
  342.         GetWindowsDirectory(strWndDir.GetBuffer(MAX_PATH), MAX_PATH);
  343.         strWndDir.ReleaseBuffer();
  344.  
  345.         strWndDir += _T("\\winhlp32.exe");
  346.         // This retrieves cursor #106 from winhlp32.exe, which is a hand pointer
  347.         HMODULE hModule = LoadLibrary(strWndDir);
  348.         if (hModule) {
  349.             HCURSOR hHandCursor = ::LoadCursor(hModule, MAKEINTRESOURCE(106));
  350.             if (hHandCursor)
  351.                 m_hLinkCursor = CopyCursor(hHandCursor);
  352.         }
  353.         FreeLibrary(hModule);
  354.     }
  355. }
  356.  
  357. LONG CHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)
  358. {
  359.     HKEY hkey;
  360.     LONG retval = RegOpenKeyEx(key, subkey, 0, KEY_QUERY_VALUE, &hkey);
  361.  
  362.     if (retval == ERROR_SUCCESS) {
  363.         long datasize = MAX_PATH;
  364.         TCHAR data[MAX_PATH];
  365.         RegQueryValue(hkey, NULL, data, &datasize);
  366.         lstrcpy(retdata,data);
  367.         RegCloseKey(hkey);
  368.     }
  369.  
  370.     return retval;
  371. }
  372.  
  373. void CHyperLink::ReportError(int nError)
  374. {
  375.     CString str;
  376.     switch (nError) {
  377.         case 0:                       str = _T("The operating system is out\nof memory or resources."); break;
  378.         case SE_ERR_PNF:              str = _T("The specified path was not found."); break;
  379.         case SE_ERR_FNF:              str = _T("The specified file was not found."); break;
  380.         case ERROR_BAD_FORMAT:        str = _T("The .EXE file is invalid\n(non-Win32 .EXE or error in .EXE image)."); break;
  381.         case SE_ERR_ACCESSDENIED:     str = _T("The operating system denied\naccess to the specified file."); break;
  382.         case SE_ERR_ASSOCINCOMPLETE:  str = _T("The filename association is\nincomplete or invalid."); break;
  383.         case SE_ERR_DDEBUSY:          str = _T("The DDE transaction could not\nbe completed because other DDE transactions\nwere being processed."); break;
  384.         case SE_ERR_DDEFAIL:          str = _T("The DDE transaction failed."); break;
  385.         case SE_ERR_DDETIMEOUT:       str = _T("The DDE transaction could not\nbe completed because the request timed out."); break;
  386.         case SE_ERR_DLLNOTFOUND:      str = _T("The specified dynamic-link library was not found."); break;
  387.         case SE_ERR_NOASSOC:          str = _T("There is no application associated\nwith the given filename extension."); break;
  388.         case SE_ERR_OOM:              str = _T("There was not enough memory to complete the operation."); break;
  389.         case SE_ERR_SHARE:            str = _T("A sharing violation occurred. ");
  390.         default:                      str.Format(_T("Unknown Error (%d) occurred."), nError); break;
  391.     }
  392.     str = _T("Unable to open hyperlink:\n\n") + str;
  393.     AfxMessageBox(str, MB_ICONEXCLAMATION | MB_OK);
  394. }
  395.  
  396. BOOL CHyperLink::GotoURL(LPCTSTR url, int showcmd)
  397. {
  398.     TCHAR key[MAX_PATH + MAX_PATH];
  399.  
  400.     // First try ShellExecute()
  401.     BOOL result = (((UINT)ShellExecute(NULL, _T("open"), url, NULL,NULL, showcmd)) > HINSTANCE_ERROR);
  402.  
  403.     // If it failed, get the .htm regkey and lookup the program
  404.     if( !result )
  405.     {
  406.         if (GetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) == ERROR_SUCCESS) {
  407.             lstrcat(key, _T("\\shell\\open\\command"));
  408.  
  409.             if (GetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {
  410.                 TCHAR *pos;
  411.                 pos = _tcsstr(key, _T("\"%1\""));
  412.                 if (pos == NULL) {                     // No quotes found
  413.                     pos = _tcsstr(key, _T("%1"));       // Check for %1, without quotes 
  414.                     if (pos == NULL)                   // No parameter at all...
  415.                         pos = key+lstrlen(key)-1;
  416.                     else
  417.                         *pos = '\0';                   // Remove the parameter
  418.                 }
  419.                 else
  420.                     *pos = '\0';                       // Remove the parameter
  421.  
  422.                 lstrcat(pos, _T(" "));
  423.                 lstrcat(pos, url);
  424.                 result = CreateProcess( NULL,
  425.                                         key,
  426.                                         NULL,
  427.                                         NULL,
  428.                                         FALSE,
  429.                                         NORMAL_PRIORITY_CLASS,
  430.                                         NULL,
  431.                                         NULL,
  432.                                         NULL,
  433.                                         NULL );
  434.                 //result = (HINSTANCE) WinExec( key, showcmd );
  435.             }
  436.         }
  437.     }
  438.  
  439.     return result;
  440. }
  441.